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1- OPERATION 



INTRODUCTION 




Chapter 1 describes the monitor unit feat 
associated controls. The keyboard (Figure 3) is 
and the purpose of each key is explained. There is 
discussion of floppy disks for those unfamiliar 
handlingV Power-up and pooier^douin procedures are 
Instructions av^ given for running the VTS2 
Emulation program. A protocol for data transfer b 
GC 1000 and another processor is outlined and the 
Tablet Subprogram is described. Finally* for users 
selected the OS-9 Pascal compiler! installation ins 
are provided. 



ures and 
described 

a brief 
ttiith disk 
provided. 

Terminal 
etuieen a 

Graphics 

who have 
tructions 



Chapter 2 outlines the subroutines in the Graphic 
Routine Library, and gives instructions for linking the 
library to BASIC and Pascal application programs. 



I- 



MONITOR UNIT FEATURES 



Front Panel 



The front panel 
Master Reset switch. 



(Figure 1) contains five 
From left to right* the 



red LEOs and 
LEDs are: 



1 T^ indicates a memory fault 

2 - indicates when OS-9 is operational by lighting 

briefly and then extinguishing 
TX - indicates when system is transmitting data 
RX - indicates when system is receiving data 
^. - indicates that prime power is applied to the 

unit 

MASTER RESET - push-switch that causes system to 
re-boot 
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Rear Panel 




'"> M 



The vfiav panel (Figure 2) contains the following items: 



ON/QFF 
FUSE 5A SB 
MODEM 



power switch 
slow-blow fuse 

connector for serial communications 
cable 

connector for optional printer cable 
connector for optional tablet cable 
monitor control; display contrast between 
black and white increases as the knob is 
rotated clockwise 
BRIGHTNESS - monitor control; display brightness -^ 

increases as the knob is rotated clo4GLlcwise. 






PRINTER 

TABLET 

CONTRAST 





a. 




k) 
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FRONT View 



FIGURE I 



fe^> 




FUSE 5 A 

<sa) 

120V 
50/60 HZ 




^ 



r^31 MODEM 
1^33 PR INTER 
r^jl SPARE 
C^a] TABLET 
I I 




CONTRAST BRIGHTNESS 



RE A R VIEW 



FIGURE 2 



NQRPAK / 85-06077-01 / GC 1000 OPERATING INSTRUCTIONS P/^E 8 



KEYBOARD FEATURES 
Text Keys 



The arrangement of keys on the OC 1000 keyboard is 
similar to that of an ordinary typewriter. In conjunction 
with the standard QWERTY keyboardi there are additional keys 
having specific functions* described below. 



CTRL Key 

The CTRL (control) key is used in conjunction with 
other keys on the keyboard to generate control codes. 
Control codes can be used as defined in the 08-9 operating 
system when running OS-9 programs* or can be defined in the 
programmer's own software. 



LOCK Key 

The LOCK key functions as a shift-lock. When the LOCK 
key is pressed* the ketjboard remains shifted until SHIFT is 
pressed. The LED on the LOCK key lights when it is pressed. 






SHIFT Key 

Alphabetic keys: Pressing one or both SHIFT keys 
causes an upper-case code to be transmitted. When neither 
SHIFT key is pressed* a lower-case code is transmitted. 

Non-alphabetic keys: Pressing one or both SHIFT keys 
causes the code for the character at the top of the key to 
be transmitted. When neither SHIFT key is pressed/ the code 
for the lower character on the key is transmitted. 



The 
(ie the 
keys). 



SHIFT key shifts all keys having shifted functions 
cursor keypads the main keyboard* the top row of 



Keys having no upper case 
when the SHIFT key is pressed. 



function av^ not affected 



^¥^ 
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ESC Key 

The ESC (escape) key returns the hexadecioial code IB 
and is used by some programs as a termination character. 

RETURN Key 

The RETURN key acts as an end of line character and 
returns the hexadecimal code OD. It generally acts as a 
carriage return line feed# but depends on the software 
program for its function. 




LINE FEED Key 

The LINE FEED key moves the cursor down to the next 
line* and returns the hexadecimal code OA. 

RUBOUT «Key 

When the RUBOUT key is pressed. the last character 
entered is deleted (erased from the screen). It returns the 
hexadecimal code 7F. 



R^T Key 

• When the REPT (repeat) key is pressed* any other key 
pressed is repeated at the rate of 10 chars/sec. 



ALPHA Key 

The ALPHA key toggles the system between alphanumeric 
and graphics mode of operation. The default state is 
alphanumeric. 

The fallowing function keys are currently used only bu 
the VT92 Emulator: 



• j^l&i. 




SETUP 
RESET 
ECHO 
LINE 
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M 



SETUP Key 

Pressing the SETUP key allows the user to change the 
follouing: 

- fflodem receive and transmit baud rates 

- printer baud rates 

- parity 

- number of stop bits 

To set the RX baud rate for the modem port, press R on 
the keyboard. Each time R is pressed, a baud rate appears. 
Stop pressing R when the required baud rate appears! 
Available RX baud rates for the modem port are 7S, 150. 30oi 
600, 1200. 2400. 4800 and 9600. 

To alter the TX baud rate for the modem port press T 
until the required baud rate appears. Available baud rates 
are 73. 150. 300 or same as RX (ie TXssRX). 

To alter the baud rate for the printer port press P 
until the required baud rate appears. Available baud rates 
for the printer are 75. 150. 300. 600. 1200. 2400i 48bo and 
9600. 



■ ••'■>■ 



To set the parity for the modem port, press A until the 
required parity appears. Parity can be odd. even or NO. 



The number of stop bits for the modem port can be 
at either I or 2 by pressing S. 



set 



ECHO Key 

Pressing the ECHO key causes the character entered to 
appear on the screen. The default state is no echo (or echo 
off). 



LINE Key 

The LINE key toggles between on-line and local 
operations. When the GC 1000 is on-line, keyboard data is 
transmitted over the modem port to a remote computer. When 
the OC 1000 is in local mode, characters entered 'on the 
keyboard are only displayed on the screen. 



■)S| 



^^01 
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''^/ Cursor Control Keypad 



keys 



The VT52 Emulator uses the following cursor control 



- up arrow <t > 

r right arrow (*>) 

- left arrow <<-) 

- down arrow (^> 

- home <*> 

^ Pressing a specific direction key once moves the cursor one 
character in X or Y. depending on the direction indicated on 
thetvlcey. 

^Pressing the * (home) key causes the cursor to return 
::^to the top left corner of the screen. 

RESET >8y 

f/thBtx the RESET key is pressed* control is returned to 
the 08-9 operating system. 



tMumeric Keypad 



The mathematical 
special codes for the 
Tiie ENTER key returns 
^he system does not 
the iceypad and those 
software can be written 
code returned to determine 
has been used. 



keys on the numeric keypad transmit 
numbers to 9 (hexadecimal DO to D9). 
the hexadecimal code 8D>. In generali 
distinguish between numbers entered on 
entered on the keyboard. Howeveri. 
to test the high-order bit on the 
whether the keypad or keyboard 



Function Keys 



function keys include the top row of keys* the numeric 
keys and the cursor controls (a total of 45 keys). As well/ 
the cursor control keys and the middle IS of the top row of 
keys can be shifted. The function keys/ their location and 
their hexadecimal codes are shown in Figure 4.. 
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BRCAK 



LOAD 



SETUP 



LJlLfJiU LfJ LfJlLJlL^lljJIljJI^ 



r>5. 



ALPHA 



ECHO 



I LINE 



RESET 



ENTER 



QH0 






Hl©l(T]|rTllralQ lRl©lQlQlQl@lalpl(; 



RETURN 



•RKniQiralQiQiralQiQiQislslmIs 



BlQlQlQlQlQlQlQlSlQJMBiQ 



'line' 

FEED 



Q 



Q 



Q 











O 























ENTER 



FIGURE 3 -GC/IOOO KEYBOARD AND KEYPADS 
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FIGURE 4 - GC/IOOO FUNCTION KEYS AND HEXADECIMAL CODES 
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FLQPP Y 15 ISK HANDL I NG 

.Th'e:dr'ive door is opened by pulling outward on its 
tfottoTO e4g;e. The floppy disk is then slipped into the slot 
with tjie label upwards and towards you. The edge of the 
floppy di^ak with the oval cutout in its cover must enter the 
dri^e first. The edge with the label must enter the drive 
last.. .,■■ 

To insert the floppy disk, push gently until it is 
entirely in the drive. Close the drive door by pushing it 
do<im again. 



To remove the floppy disk, open the drive 
carefully pull the floppy disk from the drive. 



door and 



WARNING: Do not remove 
drive is illuminated, 
aiid its information. 



a floppy disk when the LED on the 
The result can be damage to the disk 



Write Protect Feature 



The notch on the side of the floppy disk allows it to 
be write protected with a write protect tab. A 
photo-electric sensor detects the presence of the tab on the 
notch and inhibits writing. When there is no write protect 
tab on the notch, the sensor detects the notch and allows 
the disk to be written to. The write protect tabs are 
supplied with the floppy disks. 



WRITE PROTECT TAB 



ACTION 



Present 
Absent 



Read Only 
Read and Write 



Storage 



Floppy disks must be Carefully stored away 
and , extremes of temperature. They should 
vertically in their paper pockets. 



from dust 
be stored 



ViARNlNO: Placing a floppy disk on a graphic tablet destroys 
.a.11 the information on the disk. Keep floppy disks away 
from all magnetic fields. 
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POWER-UP PROCEDURE . ^'" 

The power switch is located at the right 'ipeay'^c^^e^^ 
the unit Ensure that the power cable is 7pl "9 99** in to. -a- 

«!m1^Iw ^7P^°"9»'^ "5 V outlet and that ifiiT^^odem (of 
null-modem) xs connected if «|ou intend to commiiti'cate with 
other systems. v" f r 

•■ ^ ■■ /■'^^v'^r '■ ••:,,':' 

- Load the OS-9 system disk in drive (thi uVuet ' 

drive) ^"^ '• 

- Press the power rocker switch to ON ' 'I 

- The RUN LED illuminates 

- LEDs 1 and 2 will briefly illuminate and then 
extinguish while the system performs a memoru 
integrity test. 

- The disk drive LED and LED 2 then illuminate 
while the system is read from disk. 

NOTE; Listen for the clicks indicating that GS-9 is 
loading. If no clicks are heard, ensure the system disk is 
in the drive, as the drive LED is on whether or hot 'a disk 
has been inserted. . 

The following display lines appear on the monitor:. 

Display: Norpak Graphics Workstation 
(month, day, year, time) 



■ *,. 



Display: SHELL 
Prompt: 0S9: 

POWER-DOWN PROCEDURE 

- Remove and store the disks 

- Press the power switch to OFF 



'■•..:.^ 
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.>>. 



^■■ 



VtSa TERMINAL EMULATION 



•^ ^tS2 Eri|ilator Program 

'Before attempting to run the VTS2 Emulator, ensure that 






. * s.- S*^. ««Tial interface on the back of the monitor is 
/ J'fo«n«5J« to a modem (or noil-modem). uihich is then 

:^- -r|?""!!**^rK*° *S% '*?""'** computer communications channel 
":^s; >"«^?*?- T^he VTS2 Emulator resides on the OS-9 system disk 



?Me 



In response to the OS-9 prompt. 
Type: VT32 (CR) 



The,h^^^ should reply with a prompt. If there is no prompt. 
■■^.: on the keyboards 



'•'.1*' 



Press: 



(SETUP) 



_^ The current baud rates, parity and number of stop bits 
appear across the bottom of the screen. Ensure that theg 

fT?^«'»^r»'^*' " *'**^ *'** "***' change them by following the 
instructions for the SETUP key in the Keyboard Features 
section under Text Keys. 

Once they are correct* 



Press: 
Press: 



(SETUP) 
(RETURN) 



T^^,!I2^* responds with a prompt. The ©C 1000 system is now 
in vT32 mode. 

To return control to the OS-9 operating system at any 

time, on the keyboard ^ 



Press: 



(RESET) 



The following VT52 features are not included in 
OC 1000 VTS2 Emulator software package: 

- hold screen 

-^ alternate keypad 

:'^>? - harduiare tabs 



the 



f^^^ 



NORPAK / 85-06077-01 / GC 1000 OPERATING INSTRUCTIONS PAGE 16 



SIMPLE LINK DATA TRANSFER PROTOCOL 

INTRODUCTION V; > 

V- . ' ■_ 

The Norpak Simple Link Data Transfer Prd(tocel i? a' 
communications package enabling the transfer o*f aMii, PDI 
and binary files between a ©C 1000 processor arid another 
processor (eg. a PDP-11). The package is baaed on two 
programs: LOCAL/ running in the local processor and REMOTE' 
running in the remote processor. The local processor 
initiates the transfer process, allowing the user to emulate 
a terminal to the remote processor. When LOCAL is used in 
conjunction with REMOTE, the user can initiate ang number of 
file transfers. The LOCAL and REMOTE routines control the 
transfers so that errors are minimized. 



Refer to Appendix B for a more detailed 
this protocol. 



discussion of 



NOTE: 'Local ' refers to the processor to 
operator's terminal is attached and 'remote' 
processor at the other end of a communications 



which 
refers^ to 
link... y- 



the 
the 



LOCAL Terminal 



The LOCAL routine is ignorant of the actual processor 
and operating system it is communicating with. LOCAL '^---'- 
the data coming from the remote end to 
transfer initiated by the REMOTE 
operating system in both 
operator prompts. 



processors 



sc^ns 
detect a data 
routine. Using the .s^me 
can result in confW^^iftg 



NOTE: When LOCAL is operating under RSX-llM it may drop, 
characters from a remote processor emulating a terminal, 
because RSX-llM LOCAL uses an AST routine to intercept data 
from the remote end. The communications protocol 
the LOCAL routine is designed not to lose data 
from the remote end is always solicited. 



portion of 
because data 



LIMITATIONS 



The operator must be responsible for some eirror 
recovery and detection. The communications system provides 
error detection information. The highest level of eTror 
recovery is an operator-initiated re-transmission^ of the 
file. 
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PPERATION 










-^ uw . ■ J\u "-^^ protocol can be initiated by either end 

Sli*''?' ^i"*' *"» local processor should al(uai|s be a slave to 

. th**t»efliote processor. The operator runs a program on the 

,re«ote processor which controls the transfer o-P files to or 

-HSS 5L processor. This program requests filenames 

,<,.from ^the operator and determines the direction of the 

. transfer. 

A file transfer is initiated when a filename packet is 
successfully received by the local processor. This is 
J?li*""?«*^ a variable number of data packets containing the 
fvle information (transmitted by either the local or remote 
processor, depending on the direction of transfer) Each 
«^!?-*''^''i!* contains 63 bytes of data, except the last 
packet. The receiving processor detects end-of-file (EOF) 
^TVl /f* /•caives a data packet with less than 63 bytes of 

?t . S^in**'"** ^ ^V^^^ "^*'' ® ^^*^ «»«*«« i* necessary). 
^^^-^ !k^ request is received for a file which does not 
- jji^*,. the processor detecting the error terminates the 
transfer with an <EOT> <CR>. 

Each time a file transfer begins, the name of the file 

inhihJSi^n^K" ^'''.^^"J ""'' terminal. Keyboard input is 
inhibited at this point, but the operator can request the 

^Ir^"! V^Vt" l^ *"' transfer by pressing any key and/or 
can abort the transfer by pressing (Ctrl) C. Status 

i2^i>l!! 5'«.w""""''r •** ''^'^'*' successfully transmitted or 
received and the number of retransmissions due to errors 
Hot ^the current file transmission). At the end of each 
trwfer this status information is automatically displayed 
on, the user terminal. *»P*«yeQ 




Ji- 
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Using the Protocol 



OC 1000 as a remote processor; 



:> ■ 



■ •..■■.!:4vi;- 



Connect an RS-232 cable from the GC 1000 rnddem poT$'i 
(top serial port) to the aiodeoi port of >the .>th4r - 
processor. . ' '; . 

On the OC 1000, invoke the 03-9 Shell cominaStJ 
interpreter using the following command (in 
response to the OS-9 prompt): 

Type: SHELL </m >/m »/m 

The above command initiates an QS-9 proceVs" 
enabling the other processor to appear to b^ a 
terminal to the OC 1000. The OC 1000 can now /i*vn 
tasks using the REMOTE program. "^ 



GC 1000 as a local processor: 



Connect an RS-232 cable from the GC 1000 modem port 
(top serial port) to a remote host. . .^ 

Insert the VT52 Emulator disk in drive 1 and riwi 
the program according to the instructions given in 
the section on the VTS2 Emulator. 

The GC 1000 now appears to be a terminal to 
the remote processor. From the GC 1000, ensure 
that the files to be transferred from the rembt#' 
processor are in the data directory. Use the CHD 
command to change the data directory if necessary. 



-^»:- 




<ii 







v-^-^ 






'•yf '.' . .' 




.a. 


>?■';■■■.'<' 
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File Transfer - Local GC 1000 to remote processor: 
I. In response to the OS-9 prompt, 

Type: RMO filename, ... filename 
(80 characters maximum) 

ttihere each filename can have one or two optional 
(qualifiers, as follows: 




. \ 



2. 



3." 



/A 
/P 
/B 



/S 
/R 



ASCII file 

PDI file (default) 

binarii file 

and 

send file to remote (default) 
receive file from remote 



The specified qualifier remains in effect until a 
new one is used. 

Press any key on the keyboard to obtain the current 
transfer statistics while the transfer is in 
progress. 

To abort the transfer, press (Ctrl) C. 



When file transfer is complete, 
processor issues another RMO prompt, 
then enter another list of filenames 
RMO, 



the remote 
The user can 
To exit from 



Press: 
Press: 



(Ctrl) C 
(RETURN) 



OC 1000 is still a terminal to the 
processor. To exit from the Shell program. 



remote 



Press: (ESC) 
To exit from the VT52 Terminal Emulation program, 
Press: (RESET) 



,»'';^.- 
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GRAPHIC TABLET SUBPROGRAM 




•4.U i! ^'•aphic Tablet Subprogram, uhen used in conjunction 
with the Graphic Routine Library, allows the u?er to write 
an application program which accepts input from' the • tablet, 
and thereby draw the shapes involved in the creation of 
computer graphics. . , \ 

The user must create a data area on the user disk using 
a data module. The module start address must be stored at 
u«J!I-/'*Ir*" DDFC. DDFD (hex). The Tablet Subprogram then 
updates the current stylus position and status at thS 
following offsets into the user data module: 









IB. IC (hex): 
IDi IE (hex): 
IF (hex): 



stylus position X (0-2S5) 
stylus position Y (0-2S5) 
stylus status: 
FF (hex) a no data read 

a stylus up 

1 « stylus douin 






ik 



/ \ 
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OS-9 PASCAL INSTALLATION GUIDE 
Introduction 






m 



1 J 



4t 



^^ <klt "*®^ ^^^ selected model GCS-SYS-161 of the 

GC. 1000 system. the following Pascal Installation Guide is 
refl^oired to run the accompanying Pascal software. 






/'' This section assumes a familiarity with runnina 
pr«g^ams under the OS-9 operating system and an 
understanding of the use of data and execution directories 
If^ necessary, familiarize yourself with this information 
before proceeding. 

The following files are supplied on disk: 



■'•''. ■< 



filEa name 



USE 



..•;/•' rlPascal 

Paseal.Compiler 
. Phased lErrs 

P^scaiN 

Pascals 
y^ :.Fasca IT^PRUN 
, PascalT^PRUNX 

PascalT^MODL 



PdscalE 


.PascalDefs 


Support 


SuppoTtl 



OS-9 Pascal compiler program. 

OS-9 Pascal compiler pcode file. 

Text file containing error messages. 

Nonswapping pcode interpreter. 

Virtual code swapping pcode interpreter. 

Native code translator pcode file. 

Native code translator pcode file using 
machine code external routines for 
enhanced performance. 

Native code external routine module for 
use with PascalT_pRUNX file. 

External routine mapping program. 

Text file containing assembly language 
equates required to assemble native code 
programs. 

Full support package module. 

Support package module without routines 
to support SIN, COS, LN, EXP, ATAN, ^nd 
SQRT calls. '^ 



:^i 



^ 



4- 
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i%- 



Support2 



Support package module without the 
routines named in Supportl above, and a jso- 
withQut routines to support real number 
addition, subtraction, and division, and 
calls to the standard functions atid ' 
procedures: AFRAC, AINT, FILESIZE, •? 
CNVTREAL, SEEKEOF, write of a real numb q,r ' 
and read of a real number. :'■' 



t>: 



Several sample source programs are 
Their file names have a "_Source" suffix. 



also included. 



Before attempting to use any of the 
the OS-9 Pascal User's Manual thoroughly, 
manual, follow the product installation 
below. 



above f iles/"^ read 
After reading the. 
instructions given. 



;^- 



Installation Instructions 



i. • J^^P^^9ram3 supplied with the OS-9 Pascal package- are 
briefly described below, and the names of any files reduired 
in either the execution or data directories when the pfogrim' 

4.^1^ r* '*''•"• ^ Pa»cal User's Manual is also supplied 
with the Pascal package. \f^ !^ 



r 



PASCAL 



Pascal is the actual QS-9 Pascal compiler program. t-hi 
file Pascal_Compiler must be in the current execution 
directory when Pascal is run. However, if the file 
PascalErrs is not in the current execution directory also, 
the text corresponding to most error messages does not 
appear. The following files should all be located oh the 
same disk within the same directory: 

- Pascal 

- PascalErrs 

- Pascal^Compiler ... 

When the Pascal.Compiler file is contained within a dingle 
segment on the disk, the compile time is significantly, 
decreased. A utility program (VolStats) is supplied"^ in 
source form and can be used to determine the number of 
segments contained in any file. This program is described 
m Chapter 13 of the Pascal User's Manual. Chapter 2 of the 
same manual describes how to run the Pascal program 
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<^^i^ ..:-f'^\J■^^': 



l=!ASCALN 



PascalN is the pcode interpretar program and requires 

- one of the appropriate support package modules 
loaded into memory before PascalN is executed 



■-^^-^ 



.^- :v^ 




or 

"V . 
> <•■■ • -. 

- the appropriate support package in the current 
execution directory with the name Support. 

v', . ^ If the file PascalErrs is not also in the current 
execution directory* the text corresponding to most error 
messages does not appear. The files PascalN, Support, 
PascalErrs should all be located on the same disk within 
same directory. The various support package modules 



discussed 
describes 



and 
the 
are 



below. Chapter 3 of the Pascal User's Manual 
how to run the PascalN program. 






.« 



I^AiSCALS 
.■ 'V ' ■ ' ■ 

Pascals is the virtual code swapping pcode interpreter 
program. Other than its code swapping function it is 
i.dentical with PascalN described above. Chapter 3 of the 
user manual describes how to run the Pascals program. 

PASCALT.PRUN 

PascalT^PRUN is the optimizing native code translator 
pcode file and is executed using Pascals. PascalT^PRUN need 
not be located on a particular disk or in a p^articular 
directory to be run properly. However, the installation 
requirements for Pascals must be met; in particular the 
file PascalErrs must be in the current execution directory. 
PascalT_PRUN requires: 

- the support package module Support or Supportl 
loaded into memory before PascalT^PRUN is 
executed ^ 

or 



.#-Hi^ 




- one of the two support package modules existing 
in the current execution directory in the file 
Support when Pascal_PRUN begins execution. 



O.;* 



yv 
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As PascalT.PRUN is run uith the virtual coda swapping 
interpreter, it must remain online throughout its execi/tion 
Do not remove or change the disk containing the Pascalt PRUN 
file while the program is executing. The use o-f the native 
code translator is described in Chapter 5 of the Pascal 
User's Manual. 

P ASC ALT_PRUNX . . r -;• ;, 

PascalT_PRUNX is essentially the same file as 
PascalT_PRUN except that some of the critical routines have 
been translated into native code to improve the execution 
speed of the translation process. Since the optiiiiizing 
translator can perform large optimizations, some programs 
take a long time to run. Therefore this enhanced version is 
valuable on those systems with enough memory to : use 
PascalT_PRUNX. The module containing the native code 
routines is contained in the file PascalT_MODL and • must vjie 
either pre-loaded into memory or be in the current execution 
directory before PascalT.PRUNX can be run. Otherwise, Vh* 
same considerations apply as for running PascalT PRUN.v' this 
enhanced version can run several times faster thail - the 
unenhanced version. Since it requires an additional native 
code module in memory during its execution, it requires mors 
memory to run than PascalT.PRUN. If the system does not 
have much random access memory (RAM), there may be improved 
performance running PascalT PRUN. ' 




•^^ 

'?>;/. 









-?.•.*")> 







PASCALDEFS 



. " . i"," 



PascalDefs contains the assembly language EQUates 
required to assemble native code programs produced by the 
PascalT program. The PascalDefs file can reside on any 



drive in any directory. PascalT puts a "USE Pascal Defs" 
statement at the beginning of its output code. This 
statement must be modified to refer to the correct location 
of PascalDefs when the native code is assembled. 
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PASCALS 

Pascals 13 the utility program which provides pcode 
fileS; containing EXTERNAL routine references. These 
references have the path names and internal information 
rejuired to properly link to the modules containing the 
native code versions of any external routines. PascalE 

- Support or Support! loaded into memory 
r . before PascalE executes 



or 







- one of the tuio support package modules 

existing in the current execution directory 
in the file Support uihen PascalE begins 
execution. 



The file PascalErrs 



,v 'J.- .. should also be in the current 

.rewution directory. The use of PascalE is described in 
. ?:hapter 9 of the Pascal User's Manual. 

,.NOTE: Supports does not contain the routines reouired to 
, run PascalE. ^ 



V* . • * 



^fUPPdRT, SUPPORTl, SUPPORTS 

^' «Pf^« *i\9^ contain the runtime support routines to run 

.any OS-9 Pascal program. The file Support requires about 9K 

bytes of memory and contains the full complement of supoort 

routines. --kk"' *■ 



Supportl requires about 7K bytes of memory but does not 
support the following functions? SIN. COS. ATAN, EXP. LN and 



•:^ 



Supports requires about SK bytes of memory and does not 
support the following routines: calls to AFRAC, AINT 
CNVTREAL, FILESI2E. SEEKEOF; routines to suppo;t reli 
nu<|iber addition, subtraction and division, reading and 
writing real numbers.- all routines not supported bu 
Supportl. ^ 




^. 
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Multi-User Environment 




•>• 



When any OS-9 Pascal program begins execution (except 
for the Pascal compiler) it first ensures that one of the 
support packages is in memory. If not. the file Support" is 
loaded from the current execution directory.. In a 
multi-user environment, if one user runs a Pascal puogram 
and causes Support2 to be loaded into memory, then other 
users running Pascal programs must use Support2 until "ft is 
unlinked from memory. A Pascal program assumes that the 
support package in memory is the required version To 
prevent confusion, a rule can be enforced that the only 
support file used be the full function package Support • 
This way no one will find that a required support routine is 
missing when a program is executed. 



Single User Environment 



■Tf 



•yv 






m'' 



LOAD 
that 



In a single user environment there are two way-« of 
using the three support files effectively. The best w^u is 
to pre-load the required support file (using the OS-9 
command). before program execution. and to remov 
support package using the OS-9 UNLINK command on program 
completion. Alternatively, if one of the 
is used more frequently than the other 
renamed Support and the other two 
appropriately renamed. If 
memory when an OS-9 

Support in the current execution directory is loaded. ' If 
the three support packages have been renamed so that the 
original Supportl file is now called Support. the default 
support package load will then get the Supportl package. In 
this case the renamed file originally called Support must be 
manually loaded if the full support package is required. 

NOTE: The OS-9 Pascal Compiler program (Pascal) does not 
use the support packages. The support packages need not be 
online or pre-loaded when compiling a source program. 



support packages 

two. that file can. be 

files can also . b'e 

no support package is found, ivn 

program begins execution, the fil^- 




.* 




'\j .<^/^^J 









.i'-~'- ■ 



Wi: 



■i,i- i 
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2. GRAPHIC ROUTINE LIBRARY 
INTRODUCTION 

_ The GC 1000 graphic routine library (GRAPH. LIB on the 

luS!!r.?r^''!?'''' °*,*'** ^^^*^* ^""^^ consists of subroutines 

.Shi ^fo-?*" application programmer to draw pictures on 

tifiJ J! ^^' ^"^ subroutines in the graphics library are 

cfl led from programs written by the user. and follow the 

w?3I!* 2! ."^!'* '" *'»'* Presentation Level Protocol. 

oitHnes firinl'^H'"!^'"^' '" Appendix C. This sectJ^; 
outlines all the subroutines. 



V Depending upon the subroutine called/ the 
atiterpret the arguments passed to it and 
appropriate Picture Description Instruction 
S^ich is then sent to the display processor 
discussed in Appendix C. 



library will 

construct an 

(PDI) string 

PDIs ar^ also 



Amplication Programs 



The GC 
and BASIC 
deals uiith houi 
Pascal. 



1000 graphic library interfaces with both Pascal 
application programs. The following explanation 

application program written in 



to run an 



Vv V. ^" **** Pascal application program. the "PROCEDURE" 

.#' !*;** "f*'*^ *"• beginning (lines 14 to 38) ar^ included to 

Wv •;■ i^^^'TL Pf«al compiler that these routines are external 

.^^> *« *"f. application program. In this example, all libraru 

..; . subroutines are declared; however, only those used need be 

• . mentioned. 



The "TYPE" section 
polygon vertices and 
lines may be omitted if 



(lines 4 and S) defines arrays for 
ASCII character strings. These two 
neither subroutine is referenced. 



A sample BASIC 
Appendix A. 



application program also appears 



m 
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Compilation 



f 



Pascal: 

The compiling of the application is 
normal Pascal compile. 



identical to a 



i.e. PASCAL < APPLICATION. PROGRAM #16K 

Since the application program calls subroutines in the 
graphic routine library, the compiled application program 
must be linked to it. To link the program to the irajhic 
routine library, issue the following command line: 

PASCALS </dO/©RAPH. LINK : PCODEF »16K 

where GRAPH. LINK is the file containing all the information 
required by the linker. • ««.*«n 

To run the application programi issue the folloiiii 
command line: **ww* 



PASCALN PCODEF #16K 



% 



NOTE: The graphic library writes all its PDI 
information to OS-9 output path 1. ?< 









BASIC: 



.*i ■■'. 



The graphic library can also be accessed by a BASlic^ 
program. To invoke the BASIC system consult the OS-9 BASIC 
manual. 

When running a BASIC program. all routine calls are 

J!l??Tif?ic 1" ^^J***!. ^^ ''««"1- As in a Pascal routine. 
INITIALIZE must be the first routine called. The BASIC09 

?X???1!:. TT^^^ INITIALIZE from the execution directory. When 
INITIALIZE IS loaded, all other routines required are loaded 

dlSO. 



i 
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v.T' • -". - -: ., 

v>?^ :::• "'^^ • . 



.■•r,(.-. '.v.,-. 

■■.■*'W.'- 

:-v ■ • 



'GRAPHIC LIBRARY: 
MISCELLANEOUS SUBROUTINES 



INITlALIZEi 



This procedure links or loads a data module^ named DF, 
used for necessary global data. At the same time all values 
are set to their defaults. 



This must be the 
application program. 



first routine called by 



the 



'^':^'M':f 




^:'-^.r 



TERMINATEi 

;;•'./ This procedure unlinks the data modulei 

■''■^llVJir^ ^11 *?* termination of the application program)' 
And should be the last called by the application program 



named DF* in 






'iibMAIN (RES: integer); 

This procedure defines the resolution (RES) of the 
graphics terminal. The value of RES can be in the range of 
, 1 to 5* With a default value of 3. 



V!^-' The following table equates the value of RES to the 

resolution 



vjV';a«reen resolution 
RES 






1 

2 
3 
4 
5 



7 

31 

295 

2047 

16383 



(default) 



Since the RES value is required in the conversion of 
co-ordinate data to PDI form, it is essential that the 
resolution required matches the co-ordinate system used 




SET_POINT (X/Y: integer); 



This procedure defines the start of the next draw 
command. SET_POINT is no longer in effect after completion 
of the draw. 

The co-ordinates. X, Y are interpreted as absolute screen 
co-ordinates. 
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CURSOR (ON.QFF, STYLE: integer); 



cur.J*'" rr"""''^ *^^°'"* ^^^ independent use o^» the 
cursor. The cursor win appear at a constant position on 



procedure allows the 
he cursor will aooeai 

3J ^TJ/r??"* ""^^ be displayed in one of two styles (0 to 
3K The following table shows the relationship between the 
parameter for style and the type of cursor- 




1 

2 
3 



underline cursor (default) 
block cursor (not impletnented ) 
cross-hair cursor 
custom cursor (not implemented) 






SET_CURSOR (X, Y: integer); 



% 






4.h. I procedure sets the cursor to a desired positio^'tb^ ' 
the screen. The cursor will not move from this position ^ 
until another SETj:URSOR procedure call has been mlder^, 

co-orlinate^'*"'"**" ""'^^"^^ interpreted as absolute scre^ 

The default cursor position is at X-O, Y^O. 



RESET.SCREEN; 

This procedure erases the graphics screen (i.e ..„ .« 

tirJnl, J.^ graphic attributes to their default, sets 

nnJitiln I ''ri*';".*" ^"^' ^'°' "*^ *'»* current drawt'ng 
position to X=0, Y«0, and turns the cursor off. «»ing 



set to' 



CLEAR; 






,^.J^^^ procedure erases, the graphics screen (i.e. set to 
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t^ 



GRAPHIC PRIMITIVES SUBROUTINES 



■ , Current Draw Position 

.y^^^]r^S^^--, ^^^ Current Draw Position is the starting point of the 

"'" ^^^^^ "rr?/''^'*' command. This starting point is dependent upon 
..the following conditions, given in order of importance- 



..t: -^ 









1. 



,..':',.,a'«v,--, ■ > 



if a currently outstanding SET_POINT is evident* it 
IS taken to be the Current Draw Position of the 
Currdnt Draw Command. 

if a SET.POINT is not in effect and the cursor is 
on» the position of the cursor is taken to be the 
Current Draut Position for the Current Draw Command 
The position of the cursor is not altered bu the 
draw. 

if 1 and 2 are not true, the Current Draw Position 
is taken to be the position left at after the last 
draw, or the last position of the cursor if this is 
the first draw command issued since the cursor had 
been turned off. 



PQINTi 
"Currenl 



This procedure displays a point (1 pixel) at the 
>nt Draw Position. 

J:;v;' ^ . Color is the only attribute affecting this subroutine. 



LINE_REL (DX.DY: integer)? 

h-^ J^^^ P^oc9fiuTe draws a line a relative distance (DX, DY) 
starting from the Current Draw Position. 

The attributes affecting this procedure ar9: color, 
line-style, and line-width. 

'^ The Current Draw Position for the next draw issued is 
set to the end of the line if SET.PQINT is not issued and 
the cursor is off. 



RECTANGLE <DX, DY: integer); 

This procedure draws a rectangle starting at the 

.Current Draw Position, with a relative width (DX) and a 
relative height (DY). " 
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The attributes affecting this procedure are: tblor> 
line-style, fill, fill-type, high-light and line-uiidth. . . ' •; , ...W 

If SET.POINT is not issued before the next draw and the 
cursor is on. the Current Draw Position will be the opposite -- 
corner along the X axis. '^'^ V^:v^M: 

■; ■•■ :.:"■•>••■"*?•;..•■ 

POLYGON (N: integer, VAR VERT: ARRAY CO. . N»2: OF INTEGER) /X-" 



•• *■..■ 



This procedure draws a polygon from the Current Draw . .- 

Position, with "N" relative vertices. The array VERT must' '^V* 

be arranged so that element I is DXl, element 2 is DYl, ^^^i^^^^ 

element 3 is DX2, element 4 is DY2, etc. ' ^^ 

^•,, ^?* attributes affecting this procedure are: color^^-v 
fill, line-style, fill-type, high-light, and line-width. 



V-. -4': 



If SET_PQINT is not issued before the next draw and tftft • 
cursor is off, the Current Draw Position will be tliV?^: - 
starting point of the polygon. ^-r.- .^y^^"^: 



ARC (0X1,DY1.DX2, DY2: integer) 



Hi.' 



This procedure draws an arc starting at the Current 
Draw Position, passing through the relative points <DXi,DYl) 
and finishing at the relative point (DX2, DY2). 

The attributes affecting this procedure are: color^ 
fill, line-style, fill-type, high-light, and line-width. ' ., 

If no SET_POINT is issued before the next draw and ' ttfsj- 
cursor is off. the Current Draw Position will be the 
finishing point <DX2. DY2) of the arc. 

CIRCLE (DX, DY: integer); 

«* /ny''i3^'*''°!®'*i!^'' '*''*'"* * circle with a relative diameter 
Of (DX. DY). starting at the Current Draw Position. 

The attributes affecting this procedure are: color, 
fill, line-style, fill-type, high-light and line-width. 

If SET_POINT is not issued before the next draw and the 
cursor is off. the Current Draw Position will be the 
starting point on the circle. 
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ATTRIBUTE SUBROUTINES 






-.v:*'-:'-^- 






SEL.CQLOR (VALUE: integer); 

Vki ^**^M*.^?'^*'*''!* selects a position in the color look-gp 

tables (LUT) and uses the color values found at this 
position as the current drawing color. 

tix. .«^l!'^^**^"^I''* ^^ ®"*'*y ""^y ^^ referenced by setting 

VALUE between and 13. ^ 



SET^COLOR (RED, GREEN, BLUE; integer); 



''"''' i-T**^'. P'-fce^'Mre re-defines the color value at the 
position m the LUT last specified by SEL_COLOR, 



■.^:' » V « 



'■>t 







RILL(ONJDFF: integer); 

This procedure sets all future draws of rectangles, 
fill-t ^^''^ ^^ *"'' polygons to appear filled in the current 

.,•• ' The value ON_OFF is or 1, where » off (default) and 

. ••. . .- J * on. 




LINE_STYLE (VALUE: integer); 

This procedure sets the LINE.STYLE for all future draws 
of line, arc, rectangle, circle and polygon. 

, The argument VALUE may be in the range of to 3 and 
refers to the following: 

- Solid (default) 

1 - Dotted 

2 - Dashed 

3 - Dot-Dashed. 
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FILL_TYPE (VALUE: integer); 

This procedure sets the future fill-type to a specific 
pattern for all future draws of rectangles* arcs, polygons, 
and circles. However, an object will not be filled with 
this pattern unless the FILL procedure has been called wit#^: 
a value of I (fill on). ; 




■S. 



'y^-^. 
'.'i^-: 



The argument VALUE can be 
refers to the following: 



.'^^^ 

v^:?:'-^ 



in the range of 6-7 and^ 



■■■^Vr 



- Solid Fill (default) 

1 - Verical Hatching 

2 - Horizontal Hatching 

3 - Cross Hatching 

4 * System Dependent 
9 - System Dependent 

6 - System Dependent 

7 - System Dependent 



(coarse vertical cross-hate 
(diagonal hatching C45 deg. 
(diagonal hatching C135 deg 
(close vertical cross-hatch 



hing) 
3) 

. 1 >^ , ■: 

ingW 



HIQH.LIOHT (ON_OFF: integer); 

This procedure sets all future filled objects 
(rectanglei arc and polygon) to be highlighted by a ^olid 
border draun around the object. 

The argument ON_OFF can have a value or I, uihere =» 
off (default) and I « on (highlight). 




LINE^WIDTH (DX, DY: integer); 

This procedure defines the line width for future draws 
of point# linei arci circle and polygon. 



The arguments DXi DY are the width of the future dr 



aw. 



,'<i: 





i::>k'' 
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TEXT SUBROUTINES 



-■''*' i 






'■•" 


;^: 


->^W-: 


^^v 


irf^ 




1 .•^. 


'^/^: 
,^%^ 






'-" iv'- 














?'-■ ■""■'■••! 




% ij' 


''"*«■ 


■ ■ 


ii' * ' 


"'^\ 

'S'; 


:^[ 


,^ 


. *l * 



'".'- '^"•A' 







''•:ri' 






TEXT <N: integer. VAR CHARS: ARRAY CO. . N3 OF CHAR); 

This procedure displays a string of ASCII characters, 
starting at the Current Draw Position. 

The attributes affecting text output are: CHAR SIZE. 
CHAR_SPACE. CHAR^LINE. CHAR .ROTATION, CHAR PATH." and 
SEL.COLOR. 

The displayable ASCII characters &r9 in the range of 20 
(hex) to 7F (hex). 

If SET_POINT is not issued before the next draw and the 
cursor is off. the Current Draw Position is the end of the 
text string. 



CHAR.SIZE (DX. DY: integer) 

■;_ This procedure defines the size of the character field 
%idth (relative DX) and height (relative DY) for all future 
text output. 



CHAR.SPACE (VALUE: integer); 

This procedure sets the spacing between all future text 
characters. 

The argument VALUE refers to the following: 

0-1 (default) 

1 - 1.2S 

2 - 1. 50 

3 - proportional 




J.V^: CHARJLINE (VALUE: integer); 

This procedure defines the spacing between text lines 
for all future text output. 

The argument VALUE refers to the following: 

- 1 (default) 

1 - 1. 25 

2 - 1, SO 

3 - 2. 



* 
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CHAR_ROTATION (VALUE: integer).- 

This procedure sets the rotation of all future text 
output. 

The argument VALUE refers to the following: 

0-0 degrees (default) 

1-90 degrees ' -5 ' 

2 - 180 degrees '''■ " 'V-^^^l^' 

3 - 270 degrees ' ^ •.';.:*- 



■.^^: 



iM^i^t^ 






CHAR_PATH (VALUE: integer); , • ;t% 

This procedure sets the character path for all f uture '''^''^'^'^^- 

text output. . ;<c^.^;.!^^ 

The argument VALUE refers to the following: V ' ! 

a - Right (default) > •- : 

1 - Left -fev..i 

2 - vp j^ ..- ■ m3 

3 - Down W^ki:- 




:V^V;-V; 







T ,1 • 



i.v.^..> ^'>-: 









mi 












'J37!rai«Ttj-*_ 







->v*^**^ •:. 



'i 



APPENDIX A 
SAMPLE APPLICATION PROGRAMS 



>^*:> 



■ •'.*>' 


; '■'■"^; 


rtK".*i 


■ "/r 'f- 


• .^r^ •',.♦,- . 




V • :.:.-:=:$rv' ■ . 




" ' ' ■ ■- ■■'^'*"- ..•*..;■■ 


^-" -. 


"/•■,.'r _^*'.-.rv' ** ■" 


■''•';,;" 


" • ''*'■ ' t:*-'"'- " ■ • 








.-;..-■ ■ /■- > .-■.., 




. V, , - .'^ • V- ' -.v 




;,^;-;>- ■ :i.,' 




'V<X-^ r--.; 






k / if; 



'^ - ■l-''^vJ 










■'■ ■■':d..?^'^ 











^5^ 







SAMPLE PASCAL PROGRAM 



PROGRAM LIBRARYTEST; 

TYPE 

POLYARYaARRAYCl. . 3123 OF INTEGER; 
TEXTARY=ARRAYC1. . 5X23 OF CHAR; 



PAGE A-2 



VAR 

CHAROUT: 



TEXTARYj 






■'«'• 



<♦ The follottiing list of external 
(* in the Graphics Library. 



procedures av^ found 






; 




PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEUDRE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 



DOMA I N ( RES : INTEGER > ; EXTERNAL; 

SET_POINT( X, Y: INTEGER ) ; EXTERNAL; 

CURSOR < ON_QFF. STYLE: INTEGER ) ; EXTERNAL; 

SET.CURSOR (X,Y: INTEGER); EXTERNAL; 

POINT; EXTERNAL; 

LINE_REL(DX, DY: INTEGER ) ; EXTERNAL; 

RECTANGLE<DX. DY: INTEGER ) ; EXTERNAL; 

POL YGON(N: INTEGER; VAR DXY: POLYARY); EXTERNAL; 

ARC < DX 1 . DYl . DX2. DY2: INTEGER > ; EXTERNAL; 

CIRCLE <DX. DY: INTEGER ) ; EXTERNAL; 

SEL.COLOR < VALUE: INTEGER ) ; EXTERNAL; 

SET_COLOR ( RED. GREEN, BLUE: INTEGER ) ; EXTERNAL; 

FILL ( ON.OFF: INTEGER ) ; EXTERNAL; 

LINE_STYLE < VALUE: INTEGER ) ; EXTERNAL; 

FILL.TYPE ( VALUE: INTEGER ) ; EXTERNAL; 

HIGH.LIGHT ( ON.OFF: INTEGER ) ; EXTERNAL; 

LINE_WIDTH(DX, DY: INTEGER); EXTERNAL 

RESET JSCREEN; EXTERNAL; 

CLEAR; EXTERNAL; 

TEXT (N: INTEGER; VAR CHARS: TEXTARY); EXTERNAL; 

CHAR^SIZECDX, DY: INTEGER) ; EXTERNAL 

CHAR .SPACE { VALUE: INTEGER ) ; EXTERNAL; 

CHAR.LINE ( VALUE: INTEGER ) ; EXTERNAL; 

CHAR^ROTATI ON C VALUE: INTEGER ) ; EXTERNAL; 

CHAR _PATH< VALUE: INTEGER); EXTERNAL; 



PROCEDURE PAUSE; 




VAR 

CHAR.IN: CHAR; 



BEGIN 

WRITE<output, 'Hit 

PROMPT( output); 

READLN( input, CHAR_IN); 
END; <* PROCEDURE PAUSE 



a character and return to continue: '). 



SAMPLE PASCAL PROGRAM 



PROCEDURE TEST.POINT; 
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BEGIN 

SEL.CQLORd),- 
SET_COLOR (255, 0, ) ; 
SET^POINT (50. 90) 
POINT; 



SEL.C0L0R(2)i 
SET_C0L0R ( 0. 259. ) i 
SET_P0INT(70, 130 >) 
POINT; 









SEL_CQL0R(3)j 
SET^COLOR ( 0. 0, 255 ) i 
SET_P0INT(190, 110)1 
POINT; 



SEL_C0L0R(4); 
SET.COLOR (255. 255. 255 > ; 
SET.P0INT(140, 70); 
POINT; 



V 




END; (* PROCEDURE TEST.PQINT ♦) 



PROCEDURE TEST_LINEi 



BEGIN 

SEL.COLORd); 
SET_COLOR ( 255, 0.0); 
LINE_REL(90, 70); 



SEL_C0L0R(2); 
SET_C0L0R ( 0. 255, ) ; 
LINE_REL(-90. 60); 



> 







> ^ ' 



^^..^k H 








SAMPLE PASCAL PROGRAM 



SET_PaiNT(l20, aO.- 
SEL.COLORO); 
SET.COLOR < 2S9. 0.0); 
LINE.STYLE(0>i 
LINE.REL(60. 40)j 
. SEL_C0L0R(4)i 

.SET_CaLOR < 0. 2SS, ) ; 
LlNE.STYLE(l); 
LINE_REL(40, -50) 
SEL.COL0R<5)i 
SET_CaLOR < 0, 0, 2SS ) ; 
LINE_STYLE(2)i 
LlNE_REL{-90, -40),• 
SEL.CaLOR(6)i 
SET_COLOR < 295, 295, 299 ) ; 
LINE„STYLE<3); 
LINE_REL<-10, 90)? 

SET_P0INT(100, 100) J 
LINE_STYLE(0)i 
LlNE.WIDTHdO, 10); 
SEL_CQL0R(7); 
SET.COLOR < 0, 299, ) ; 
LINE_REL<90, 90); 

END; (♦ PROCEDURE TEST.LINE ♦) 

PROCEDURE TEST_RECTANGLEi 
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BEGIN 

SEL^COLOR ( 1 ) ; 
SET^CQLOR < 299, 0, ) , 
RECTNAGLEOO, 90); 



SEL_C0L0R(2); 
SET.COLOR ( 0, 299, ) ; 
LINE_STYLE(2); 
SET_P0INT<20, 100); 
RECTANGLE < 90, 90); 




SEL_C0L0R(3); 
SET_C0L0R(0, 0, 299); 
LINE_STYLE(0); 
FILLd); 

SET_P0INT<100. 60); 
RECTANGLE (70, 40); 



SAMPLE PASCAL PROGRAM 



SEL_C0L0R(4); 
SET_COLOR ( 235, 2S5. 255 ) ; 
FILL_TYPE(2); 
HIQH_LI©HT(l>i 
SET_PQINT(180, 0>i 
RECTANOLEdOO, 50>i 



END; <» PROCEDURE TEST_R EC TANGLE ♦) 



PROCEDURE TEST^ARCi 



3EGIN 

SEL.COLOR ( 1 ) .■ 
SET.COLOR (255, 0, ) j 
ARC(50> 30. 50. -50); 



PASEA-S 



t r 
















SEL_C0L0R<2)} 
SET.COLOR ( 0. 255, ) j 
LINE_STYLE(l)i 
SET_POINT<0, 100 >> 
ARC (50. -50, 50, 50); 



SEL.COLORO) 
SET.COLOR ( 0, 0, 255 ) ; 
LINE_STYLE(0); 
FILL(l)} 

SET^POINTdOO. 100); 
ARC (50, -50, 50, 50); 



SEL_C0L0R(4)j 
SET^COLOR (255, 255, 255) ! 
FILL.TYPEd); 
HIGH_LI0HT(1); 
SET^POINTdOO, 0); 
ARC ( 50, 50, 50, -30 ) ; 



END; (♦ PROCEDURE TEST_ARC *) 





. SAMPLE PASCAL PROGRAM 
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PROCEDURE TEST CIRCLE; 



. •• , V...- , 

■'fii- : '- 

'■^': ■:'/■ 



BEGIN 

SEL.COLOR ( 1 ) i 
SET.COLOR < 2S5, 0. ) i 
CIRCL£<SO# 90 >i 






V * 



SEL_C0L0R(2)i 
SET^COLOR ( 0. 259. ) { 
LINE_STYLE(3); 
SET_PQINT<0. 100); 
CIRCLEdOO, 0); 



■>'' -' 



SEL^COLORO); 

SET_COLQR ( 0, 0, 25S ) j 

LINe_STYL£(0)j 

FILL<l>i 

SET_Pa I NT ( 1 00, 1 00 ) ; 

CIRCLEdOO, 0); 



SEL_CQL0R<4>; 
SET.CQLOR ( 295, 255. 295 ) ; 
FILL_TYPe<3)i 
HIGH_LIGHT(l)j 
SET_P0INT(50, 50 )i 
CIRCLE(50. 0}J 



END.' (» PROCEDURE TEST_CIRCLE ») 



PROCEDURE TEST^OLYGONj 



VAR 

VERT: POL VARY; 



^■y-^r 



SAMPLE PASCAL PROGRAM 
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BEGIN 




BERTC13: 


=50i 


VERTC23: 


=50,- 


VERTC33: 


«-SOf 


VERTC43: 


=50; 


VERTC53: 


*S0; 


VERTC53: 


=50i 


VERTC63: 


»50j 


VERTC73: 


«50; 


VERTC83: 


a- SOi 


VERTC93: 


«S0; 


VERTC103 


:=50j 


VERTC113 


:«50{ 


VERTC123 


: «-50i 


VERT C 133 


: —50; 


VERTC143 


: «-50; 


VERTC1S3 


: »50i 


VERTC163; 


: —50; 




■*; 






SEL.COLORd); 
SET.COLOR ( 255, 0, ) ; 
FILL(X); 
FILL_TYPE(0); 
POLYGON (8, VERT); 



END; (» PROCEDURE TEST.POLYGON ») 




BEGIN (» MAINLINE *) 



CHAROUTCl FOR 103: -'POINT TEST 

RESET_SCREEN; 

TEST_POINT; 

SEL_C0L0R(5); 

SET^COLOR (255, 0. ) ; 

SET_P0INT<70, 170); 

CHAR_SIZE(10. 10); 

TEXTCIO, CHAROUT); 



(* POINT TEST *) 



PAUSE; 








■^ 



■■••V-'X'.-' 









.'•^'^^ i• 
'•v:.^v^•■ 




SAMPLE PASCAL PROGRAM 



CHAROUTCl FOR 93:* 'LINE TEST 

RESET_SCREEN; 

TEST^LlNEi 

SEL_COL0R(8); 

SET^COLOR ( 0, 255, ) i 

SET_PQINT<70, 170)i 

CHAR^SIZECIO, 10) i 

TEXT<9, CHAROUT); 



PAUSEi 

CHAROUTCl FOR 14J: a 'RECTANGLE TEST') 

RESET_SCREENi 

TEST_RECTANGLEi 

SEL_C0L0R(5); 

SET_COLOR (0. 0. 255 ) i 

SETJ'0INT(70, 170); 

CHAR.SIZEdO. 10) { 

TEXT(14, CHAROUT); 

PAUSE; 



CHAROUTCl FOR 83:='ARC TEST'; <♦ ARC TEST ♦) 

RESET^SCREENj 

TEST.ARCi 

SEL.C0L0R(5)i 

SET.COLOR ( 255, 255, 255 ) j 

SET_P0INT(70. 170); 

CHAR_SIZE(10, 10); 

TEXT (8, CHAROUT); 
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<* LINE TEST ») 



<* RECTANGLE TEST ») 



PAUSE; 



CHAROUTCl FOR 113:= 'CIRCLE TEST' 

RESET^SCREEN; 

TEST^CIRCLE; 

SEL.COLORCS); 

SET_COLOR (255, 255, 0) ; 

SET_P0INTf70, 170); 

CHAR^SIZECIO, 10); 

TEXT (11, CHAROUT); 



(♦ CIRCLE TEST ») 




PAUSE; 



SAMPLE PASCAL PROGRAM 



CHAROUTCl FOR 123: =» 'POLYGON TEST 

RESET_SCREENi 

TEST_POLYGONi 

SEL_C0L0R<2)i 

SET_COLOR < 255, 0, 255 ) ; 

SET_P0INT<70, 170); 

CHAR_SIZE(10, 10); 

TEXT<12, CHAROUT); 






PAGE A-9 



(♦ POLYGON TEST *). 







END. <* MAINLINE *) 



DOMAIN, /Dl /Library, 33, 0, 2, 20 
SET^POIN, /D I /Library, 33, 3, 0, 20 
CURSOR, /Dl/Library, 33, 6, 5, 20 
SET_CURS, /Ol /Library, 33, 9, 0, 20 
POINT, /Dl/Library, 33, 12, 13, 20 
LINE^REL, /Dl/Library, 33, 15. 13, 20 
RECTANGL, /Dl/Library, 33, 18, 13, 20 
POLYGON, /Dl/Library, 33, 21, 13. 20 
ARC, /Dl/Library, 33, 24, 13, 20 
CIRCLE, /Dl/Library, 33, 27, 13, 20 
SEL.COLO, /Dl/Library, 33, 30, 2> 20 
SET^COLO, /Dl/Library, 33, 33, 7, 20 
FILL, /Dl/Library, 33, 36, 0, 20 
LINE.STY. /Dl/Library, 33, 39, 2, 20 
FILL_TYP, /Dl/Library, 33, 42, 2, 20 
H1GH_LIG. /Dl. /Library, 33, 45, 2, 20 
LINE_WID, /Dl/Library, 33, 48, 0, 20 
RESET_SC. /Dl/Library, 33, 51, 13, 20 
CLEAR, /Dl/Library, 33, 54, 0, 20 
TEXT, /Dl. Library, 33, 57, 3, 20 
CHAR_SIZ, /dl /Library, 33, 60, 13, 20 
CHAR_SPA, /dl/Library, 33, 63. 0, 20 
CHAR_LIN, /dl/Library, 33, 66, 0, 20 
CHAR_ROT, /dl/Library, 33, 69. 0, 20 
CHAR_PAT, /dl/Library, 33, 72, 0, 20 









- .*v.*-,'.*-V.?)ij'. 



'",* ' 
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SAMPLE BASIC PROGRAM 
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TJhr!ri^'"''"?K'* ^ *^'"''^* ^'^^^^ program using the graphics 

rectangles IJ!ch TJ"^^"" '"'^"^ ^ ^"^^^^ °* concentric 
in^n^Ji *K i become progressively smaller as they 
approach the centre of the screen. ^ 

PROCEDURE BASIC TEST 
DIM I: INTEGER " 



PRINT CHR«(27)i 
RUN INITIALIZE 
RUN RESET.SCREEN 



CHR«(S2)i CHR«(27)i CHR«(83>; 



RUN SELj:OLOR(l) 

RUN SET_C0L0R<295, 0, 0) 

RUN LINE_STYLE(0> 

FOR laO TO 100 

RUN SET_PQINT( 127-1, lOS-I) 
RUN RECTANGLE(I+I, I+I> 

NEXT I 




RUN SEL.C0L0R(2) 
RUN SET_COLOR(0, 2SS. 0) 
RUN HNE_STYLE(1) 
FOR 1=0 TO 90 

RUN SET_POINT< 127-1, 105-1 > 
RUN RECTANGLE(I+I, I+I) 
NEXT I 



i. RUN SEL.COLORO) 
r RUN SET_caLOR(0, 0, 2S5) 
# RUN LINE_STYLE(2) 

F'PR 1=0 TO 80 
; %'^^N SET J'O I NT (127-1, 105-1) 

.xRUN RECTANOLE(I+I, I+I) 
, NpXT I 

RUN SEL_C0L0R(4) 

RUN SET_C0L0R<25S, 233,233) 

RUN LINE_STYLE(3) 

FOR 1=0' TO 70 

RUN SET_PQINT< 127-1, 103-1) 
RUN RECTANGLE (I-»- 1, 1+ 1) 
NEXT r 




RUN SEL_C0LaR(5) 

RUN SET^COLOR < 0, 0, ) 

RUN LINE_STYLE(1) 

FOR 1=0 TO 60 

RUN SET_POINT< 127-1, 103-1) 
RUN RECTANGLE(I + I, I + I) 

NEXT I 



END 






^r 




•■ . ^'■.■■■••■■i':»rU'#?;. 



•.■•;'i::/v< 
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,x«^,I f.?®^^*""*"^ protocol assumes that only text files 
(ASCII files with only <CR>, <LF>. <FF> and/or <TAB> control 
characters) and PDI files are to be transmitted over the 
Unk. Standard ASCII control characters ar^ used. Paritu 
IS removed from the data and all control characters plus 
^EU> ar9 translated into two-character sequences: <DLE> 
followed by the control character XORed with character 3 
All transfers operate through standard terminal drivers'; 
therefore all control sequences require a <CR> terminator. 

PROTOCOL 



t«,.«.4«!i ! Jk*^' *"* ^"^1 processor appears as a normal 
terminal to the remote processor. Each character entered bu 
the operator is transmitted, with no error checking, to the 
remote end which can echo them as required. The local 
processor continuously scans the data received from the 
remote end until it recognizes a SOH character. This 
character signals that a data transfer is in progress and 
passes control to the data transfer software. Data is 
transmitted between processors in packets of up to 63 data 
bytes as follows: 



<SOH><byte countXcontrol byte> ., data .. <lrcl><lrc2><CR> 

where byte count is a binary number between and 63 

defining the number of data bytes 
in this packet. If the count is in 
the CO set it is translated to the 
00 set by ORing it with a. 

control byte is a byte encoded as follows: 




Bits Meaning 

0-4 9 sequence number (0-31) or 
file type depending on the 
contents of the data type 
field 

5-6 3 data type field 

1 = File data 

2 a SEND filename 

3 a ACCEPT filename 
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Ire bytes are a longitudinal redundancy check 

including all bytes after the SOH''' 
but excluding the Ire. The Ire i»- 
12 bits long and is split into 2 
consecutive bytes. If either byte .; 
is in the CO set (octal to octal c, 
37) it is translated into the 00 •• 
set (octal 40 to octal 177) by 
ORing it with 2. 

The data included in a packet is either a filename or 
file data# depending on the contents of the control byte. 
All packets ara variable length, with the amount of data in 
a packet determined by the associated byte count. 

After assembling a data packet/ the receiving processor 
determines whether an error has occurred. If the packet is 
received successfully, an 'ack' is transmitted to the other 
processor (thus indicating another data transfer). If an 



error is detected in the packet, a 'nak' is transmitted 
the other processor (thus initiating a re-transmission 
the packet). An 'ack' 
<DC4> <CR>. 



is actually <:ENQ> <CR> and a 'nak 



to 
of 
is 



• .1 .•■-"•- r : 



Detectable error conditions are: 



LRC error 
Seciuence error 



(longitudinal sum) 



LRC errors force a re-transmission of the packet. 
Sequence errors are uncorrectable and therefore result in an 
abort of the current file transfer (with a message to the 
operator). 






Sequence numbers are used to tag each packet in a file 
transfer. The sequence number is reset to mhen a filename 
packet is received successfully and is incremented each time 
a packet has been transmitted successfully (modulo 32). If 
there is a sequence errori the receiving processor transmits 
an <EOT> <CR> to force the transmitting processor to abort 
the transfer. 



The sequence number bits in the control 
filename packet define the type of file being 
Currently there are two file types: 



byte of a 
transferred. 



- PDI 

1 - ASCII 



This information is used by the receiving processor as 
required. It is used by the RSX-llM transfer routines to 
create ASCII files with variable length records. 



^w.f^ 



■■ -fi: 
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FLOW CONTROL 

During data transfers, no flow control is necessary 
because the transmitter never sends data until the previous 
packet IS 'aeked' by the receiver. However, the same is not 
true when the local processor is acting as a terminal to the 
remote end. Therefore, the local processor can use CDl and 
DC3 to achieve flow control in a standard format 
recognizable by operating systems such as RSX-llM and RT-11 
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Videotex 
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The alpha-geometric Telidon st]9tem uses text characters 
and sifliple geometric shapes ealleii primitives to define the 
image< so that the picture is built up in finelij detailed 
areas rather than line b^ line. The geometric shapes and 
text characters are described b^ Picture Description 
Instructions (PDIs) which comply to an industry videotex 
protocol. Both the PDIs and the protocol are described 
the following two sections. 



Picture Description Instructions 



m 



J ...... 



Picture Description Instructions are concise codes used 
to define graphic primitives (shapes) in Telidon pictures 
The codes are formed from th» 7-bit# 128-character ASCII set 
and comply to OSI communications protocol. The user does 
not need any special knowledge of the protocol or the code 
structure. However. if further details are required they 
are given in the Videotex Standard referred to in the 
following section. 



The PDIs define graphical and textual information in a 
concise alpha-geometric code set. Th» code set consists of 
the primitive identifier, its attributes, and numeric 
location data. The primitive is the graphic shape, the 
attribute are its color, whether it is to be drawn 
outline or filled, and the text size and its 
numeric location data defines the screen 
which the primitive is to be located. 



rotation; 
co-ordinates 



xn 

the 

on 



Videotex Protocol 



K- 



c 




To promote compatibility in videotex information 
systems the Bell System has adopted a presentation level 
protocol. The protocol is defined in a document that 
concerned with the definition of the "formats, rules, 
procedures adopted for the encoding of text, graphics, 
display control information for videotex applications", 
document is highly technical and will not be of interest 
most users. 



IS 

and 
and 

The 
to 



Should you be interested in the technical details of 
videotex protocol, further details can be obtained from 
either of the following sources. 
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The AT%X document title: ia: 

PTeaentation Level Protocol 

^nd ^ui*ther infortn;a«ion cjiv^^^ through: 

J|#flaser* lL^nNPi»rmation Management Planning 

Afiie^ric^nJie lap hone and Telegraph Company 
S"' Wpprf 1ho 1 1 pi^' Road 
Par% ipp any N^ 67094 



The DOC docuoient titlpi is: 



Jelidofi Vidtp^tftx Presentation Level Protocol; 
AdfioAiented" B^ii^ture Oesci 
t^' TfithnicM ' NPte 709 



Adfifjinenied^B^i^ture Description Instructions 
le- 



an d furttieif information can be obtained through: 



pepaiT.tfli^.nt of Cbinmunications 

is f PrmaM^f ••' Se*Vi c es 
gO^; ■flayer" Sl^' " " 
q%ifca«i»a, i3hta#io KIA oca 
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